(mouse-region-delete-keys): Add deletechar.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db8d0bb1f68ab7e8d727c227f787b2b8dd2bab05..a6330fe0d2a7ab5f090379e083e7dd173cf67ceb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-03-03  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * mouse.el (mouse-region-delete-keys): Add deletechar.
+
 2002-03-03  Sam Steingold  <sds@gnu.org>
 
        * play/snake.el (snake-score-file): Fixed parens (broken by the

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 9d9bee17005bb05b343f1b92857a3b9df3173194..f5e855f09200b9eb9b467f3287c8fc96cc3c88f6 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1001,7 +1001,7 @@ If DIR is positive skip forward; if negative, skip backward."
 
 ;; Momentarily show where the mark is, if highlighting doesn't show it.
 
-(defvar mouse-region-delete-keys '([delete])
+(defvar mouse-region-delete-keys '([delete] [deletechar])
   "List of keys which shall cause the mouse region to be deleted.")
 
 (defun mouse-show-mark ()